Cubase Magazine 52/Issue #52.iso/pc/2-SOFTWARE/MQv8Demo/MQ.Z/EG-101 Tone Macro.txt

Text File | 2000-03-20 | 7.0 KB | 984 lines

Tone Select Macros
------------------

READ PATCH NUMBER

gets the tone in use,
W contains offset to Part
X contains bank #  (CC)
Y contains patch # (PC)
V30 = extracted patch #
V31 = extracted Bank #
V32 = counts validly tested values
V33 = loop counter


FR x W
MW + 1
FR y W
My + 1
mz = 2
MV33 = 0

L 773 [

DEC
S 1548 {
0 0
1 64
1 65
1 66
1 67
2 64
2 65
2 66
2 67
2 68
2 69
2 70
2 71
2 73
3 64
3 65
3 66
4 64
4 65
5 64
5 65
5 66
5 67
5 68
5 69
5 70
6 64
6 65
6 66
6 67
7 64
7 65
7 66
8 64
8 65
9 64
9 65
9 66
9 67
9 68
9 69
9 70
10 64
10 65
10 66
10 67
10 68
10 69
11 64
12 64
12 65
12 66
12 67
12 68
12 69
12 70
13 64
13 65
13 66
13 67
13 68
13 69
13 70
13 71
14 64
14 65
14 66
14 67
14 68
14 69
14 70
14 71
15 64
15 65
16 64
17 64
17 65
18 64
18 65
19 64
19 65
19 66
20 64
21 64
22 64
22 65
22 66
22 67
23 64
23 65
23 66
23 67
24 64
24 65
24 66
24 67
24 68
24 69
24 70
25 64
25 65
25 66
25 67
25 68
25 69
26 64
26 65
26 66
26 67
26 68
26 69
27 64
27 65
27 66
27 67
27 68
27 69
27 70
27 71
27 72
27 73
28 64
28 65
28 66
28 67
29 64
29 65
30 64
30 65
30 66
30 67
30 68
31 64
31 65
31 66
32 64
32 65
33 64
34 64
35 64
35 65
35 66
35 67
35 68
35 69
35 70
35 71
35 72
35 73
35 74
36 64
36 65
36 66
36 67
36 68
36 69
36 70
36 71
37 64
37 65
37 66
37 67
37 68
37 69
37 70
37 71
37 72
38 64
38 65
38 66
38 67
39 64
39 65
39 66
39 67
40 64
40 65
41 64
41 65
42 64
42 65
42 66
42 67
43 64
43 65
44 64
44 65
44 66
45 64
45 65
46 64
46 65
47 64
48 64
48 65
49 64
50 64
51 64
52 64
52 65
53 64
53 65
53 66
53 67
54 64
54 65
55 64
55 65
55 66
55 67
56 64
56 65
57 64
57 65
57 66
57 67
57 68
57 69
57 70
57 71
58 64
58 65
59 64
59 65
59 66
59 67
60 64
60 65
60 66
60 67
60 68
62 64
62 65
62 66
63 64
63 65
63 66
64 64
64 65
65 64
66 64
66 65
66 66
66 67
66 68
66 69
66 70
66 71
66 72
66 73
67 64
67 65
67 66
68 64
68 65
68 66
69 64
70 64
70 65
70 66
70 67
71 64
72 64
72 65
73 64
74 64
76 64
76 65
76 66
76 67
76 68
76 69
76 70
77 64
77 65
77 66
77 67
77 68
77 69
77 70
77 71
77 72
77 73
78 64
78 65
78 66
78 67
79 64
79 65
79 66
80 64
80 65
81 64
81 65
81 66
82 64
82 65
82 66
82 67
82 68
82 69
83 64
83 65
84 64
84 65
84 66
85 64
85 65
85 66
85 67
85 68
86 64
86 65
86 66
86 67
86 68
87 64
87 65
87 66
87 68
87 69
88 64
88 65
88 66
88 67
89 64
89 65
89 66
89 67
89 68
89 69
90 64
90 65
91 64
91 65
92 64
92 65
93 64
94 64
94 65
95 64
96 64
96 65
96 66
96 67
96 68
97 64
97 65
97 66
98 64
98 65
99 64
99 65
100 64
100 65
100 66
101 64
101 65
102 64
102 65
103 64
104 64
104 65
105 64
105 65
105 66
106 64
107 64
107 65
107 66
108 64
108 65
108 66
108 67
109 64
110 64
110 65
110 66
110 67
110 68
110 69
110 70
110 71
111 64
111 65
111 66
111 67
111 68
111 69
111 70
111 71
111 72
111 73
111 74
112 64
112 65
113 64
113 65
114 64
115 65
116 64
117 64
117 65
117 66
118 64
118 65
118 66
118 67
119 64
119 65
119 66
119 67
120 64
120 65
120 66
120 67
120 68
120 69
121 64
121 65
121 66
121 67
121 68
121 69
121 70
122 64
122 65
122 66
123 64
123 65
123 66
123 67
123 68
123 69
125 64
125 65
125 66
125 67
125 68
125 69
127 64
127 65
127 66
127 67
127 68
127 69
127 70
}

MV32 = 0

FT V30 Z
mz + 1
ft v31 Z
mz + 1

ifq v30 y
  ifq v31 0
    mv34 = v33
ife

ifq v30 y
  mv32 + 1
ife

ifq v31 x
  mv32 + 1
ife

ifq v32 2
  mv34 = v33
  break
  ret v34
ife

mv33 + 1
]


ret v34




WRITE PATCH NUMBER

sets the tone in use,
X = value adjusted to offset


mx * 2
mx + 2

DEC
S 1548 {
0 0
1 64
1 65
1 66
1 67
2 64
2 65
2 66
2 67
2 68
2 69
2 70
2 71
2 73
3 64
3 65
3 66
4 64
4 65
5 64
5 65
5 66
5 67
5 68
5 69
5 70
6 64
6 65
6 66
6 67
7 64
7 65
7 66
8 64
8 65
9 64
9 65
9 66
9 67
9 68
9 69
9 70
10 64
10 65
10 66
10 67
10 68
10 69
11 64
12 64
12 65
12 66
12 67
12 68
12 69
12 70
13 64
13 65
13 66
13 67
13 68
13 69
13 70
13 71
14 64
14 65
14 66
14 67
14 68
14 69
14 70
14 71
15 64
15 65
16 64
17 64
17 65
18 64
18 65
19 64
19 65
19 66
20 64
21 64
22 64
22 65
22 66
22 67
23 64
23 65
23 66
23 67
24 64
24 65
24 66
24 67
24 68
24 69
24 70
25 64
25 65
25 66
25 67
25 68
25 69
26 64
26 65
26 66
26 67
26 68
26 69
27 64
27 65
27 66
27 67
27 68
27 69
27 70
27 71
27 72
27 73
28 64
28 65
28 66
28 67
29 64
29 65
30 64
30 65
30 66
30 67
30 68
31 64
31 65
31 66
32 64
32 65
33 64
34 64
35 64
35 65
35 66
35 67
35 68
35 69
35 70
35 71
35 72
35 73
35 74
36 64
36 65
36 66
36 67
36 68
36 69
36 70
36 71
37 64
37 65
37 66
37 67
37 68
37 69
37 70
37 71
37 72
38 64
38 65
38 66
38 67
39 64
39 65
39 66
39 67
40 64
40 65
41 64
41 65
42 64
42 65
42 66
42 67
43 64
43 65
44 64
44 65
44 66
45 64
45 65
46 64
46 65
47 64
48 64
48 65
49 64
50 64
51 64
52 64
52 65
53 64
53 65
53 66
53 67
54 64
54 65
55 64
55 65
55 66
55 67
56 64
56 65
57 64
57 65
57 66
57 67
57 68
57 69
57 70
57 71
58 64
58 65
59 64
59 65
59 66
59 67
60 64
60 65
60 66
60 67
60 68
62 64
62 65
62 66
63 64
63 65
63 66
64 64
64 65
65 64
66 64
66 65
66 66
66 67
66 68
66 69
66 70
66 71
66 72
66 73
67 64
67 65
67 66
68 64
68 65
68 66
69 64
70 64
70 65
70 66
70 67
71 64
72 64
72 65
73 64
74 64
76 64
76 65
76 66
76 67
76 68
76 69
76 70
77 64
77 65
77 66
77 67
77 68
77 69
77 70
77 71
77 72
77 73
78 64
78 65
78 66
78 67
79 64
79 65
79 66
80 64
80 65
81 64
81 65
81 66
82 64
82 65
82 66
82 67
82 68
82 69
83 64
83 65
84 64
84 65
84 66
85 64
85 65
85 66
85 67
85 68
86 64
86 65
86 66
86 67
86 68
87 64
87 65
87 66
87 68
87 69
88 64
88 65
88 66
88 67
89 64
89 65
89 66
89 67
89 68
89 69
90 64
90 65
91 64
91 65
92 64
92 65
93 64
94 64
94 65
95 64
96 64
96 65
96 66
96 67
96 68
97 64
97 65
97 66
98 64
98 65
99 64
99 65
100 64
100 65
100 66
101 64
101 65
102 64
102 65
103 64
104 64
104 65
105 64
105 65
105 66
106 64
107 64
107 65
107 66
108 64
108 65
108 66
108 67
109 64
110 64
110 65
110 66
110 67
110 68
110 69
110 70
110 71
111 64
111 65
111 66
111 67
111 68
111 69
111 70
111 71
111 72
111 73
111 74
112 64
112 65
113 64
113 65
114 64
115 65
116 64
117 64
117 65
117 66
118 64
118 65
118 66
118 67
119 64
119 65
119 66
119 67
120 64
120 65
120 66
120 67
120 68
120 69
121 64
121 65
121 66
121 67
121 68
121 69
121 70
122 64
122 65
122 66
123 64
123 65
123 66
123 67
123 68
123 69
125 64
125 65
125 66
125 67
125 68
125 69
127 64
127 65
127 66
127 67
127 68
127 69
127 70
}

FT Y X
MX + 1
FT Z X
my - 1

a

Fs Z W
MW + 1
Fs Y w